home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -screenplay- / shareware / hammytown / 6.room < prev    next >
Text File  |  1997-12-01  |  7KB  |  190 lines
  1. /*                     This is a room file for GRAAL
  2. /*
  3. /*                                 6.room
  4. /* RF 1=0 first visit
  5. /* RF 2=0 not yet got job
  6.  
  7. /* UPDATE: scroll_frames;normal_frames
  8. /*
  9. UPDATE: 3;1
  10.  
  11. /* SECTION: section number
  12. SECTION: 1
  13.  
  14. /* BG_IFF: filename
  15. BG_IFF: 6BG.IFF
  16.  
  17. /* START_POS: sposno;bobimage;x;y;camera;floor
  18. START_POS: 1;13;4;103;L;1
  19. START_POS: 2;11;248;99;R;2
  20.  
  21.  
  22. /* FLOOR: floorno;x1;y1;x2;y2;floormap/.../floormap
  23. /*
  24. FLOOR: 1;0;70;221;120;1-1/2-2
  25. FLOOR: 2;200;96;319;120;1-1/2-2
  26.  
  27.  
  28. /* EXIT: no;x1;y1;x2;y2;epointx;epointy;description
  29. /*
  30. EXIT: 1;0;48;32;120;4;106;Harbour
  31. EXIT: 2;240;56;257;94;249;97;Kitchen
  32.  
  33. /* CLPART: filename
  34. /*
  35. CLPART: 3FG.IFF
  36.  
  37. /* ROOMBOBS: no_of_imgs;startrbob;grabx;graby;width;height;xoffset;hotsp
  38.  
  39. /* 1-3 is the restaurant owner animation
  40. ROOMBOBS: 3;1;197;120;23;51;24;0
  41.  
  42. /* STATIC: bobno;LBOBimage;putx;puty
  43. /*
  44.  
  45. /* ANIM: bobno;bobimg;amalchannel;amalsequence;putx;puty
  46.  
  47. /* ROOMOBJ: roomobjno,object_definition.... (see graal.main documentation)
  48.  
  49. /* DACT: condition;...;action;...
  50. /*
  51. /* Light up scene
  52. DACT: TRACK NO;LIGHTS ON
  53. DACT: IFRF 1=0;SAY Look at those lovely realistic chairs and tables!;SETRF 1=1;EXIT
  54.  
  55. /* LINE: dlgno;lineno;line;reuseline;conditions
  56. /*
  57. /*   Specifies a line of dialogue
  58. /*
  59. /* LACT: dlgno;lineno;action;...;action
  60. /*
  61. /*
  62. LINE: 4;1;Cheers then mate, I'll see you later.;Forget it.; 
  63. LACT: 4;1;IFOF 1=0;RESP R,4,Okey dokey, see you.;SETOF 1=1;EDLG;EXIT
  64. LACT: 4;1;IFOF 1=1;RESP R,4,Forgotten.;EDLG;EXIT
  65. /*
  66. LINE: 4;2;Nice Restaurant.; ;IFRF 2=0
  67. LACT: 4;2;RESP R,4,Well, thank you.;DSET 4,N2,+1
  68. /*
  69. LINE: 4;3;Not many people here, are there?; ;IFRF 2=0
  70. LACT: 4;3;RESP R,4,That's because we have no chef.;RESP R,4,The last one resigned because of low pay.;RESP R,4,So I'm left to do the cooking.
  71. LACT: 4;3;RESP R,4,Then people stopped coming!;RESP R,4,I don't know why.
  72. LACT: 4;3;RESP R,4,What is wrong with cockroach stew?;SAY <YUCK>
  73. LACT: 4;3;DSET 4,N3,+4,+1
  74. /*
  75. LINE: 4;4;I think you need another chef.; ;IFRF 2=0
  76. LACT: 4;4;RESP R,4,Yes, I suppose I do.
  77. LACT: 4;4;RESP R,4,But where am I going to find another chef from?
  78. LACT: 4;4;DSET 4,N4,+5
  79.  
  80. /*
  81. LINE: 4;5;I can cook, I'll take the job!;Can I have the Chef's job, please?;IFRF 2=0
  82. LACT: 4;5;RESP R,4,Of course!;RESP R,4,Have you got your Chef's certificate?
  83. LACT: 4;5;DSET 4,S1,+6,+7,+8;EXIT
  84. /*
  85. LINE: 4;6;Er, do I need one?; ;IFRF 2=0
  86. LACT: 4;6;RESP R,4,I'm afraid you do.;RESP R,4,Stupid regulations.
  87. LACT: 4;6;RESP R,4,If somebody finds out that I'm employing a chef without a certificate...
  88. LACT: 4;6;RESP R,4,...they could shut me down!
  89. LACT: 4;6;DSET 4,N6
  90. /*
  91. LINE: 4;7;Oh dear, I must've left it at home.;I still haven't found it.;IFRF 2=0
  92. LACT: 4;7;RESP R,4,Well, you'd better go and find it.
  93. LACT: 4;7;RESP R,4,I can't let you work here without one.
  94. LACT: 1;7;DSET 4,R1
  95. /*
  96. LINE: 4;8;I've got it right here!; ;IFCARR 12;IFRF 2=0
  97. LACT: 4;8;RESP R,4,Excellent.;RESP R,4,You can start right away.
  98. LACT: 4;8;RESP R,4,I'll pay you at the end of the day.
  99. LACT: 4;8;RESP R,4,...but in the meantime, here is £2 for supplies.
  100. LACT: 4;8;HANDLE;SETRF 2=1;GET 13,N;W 5;HANDLE -1
  101. LACT: 4;8;SAY Thanks. I can buy some nice goodies with this!
  102. LACT: 4;8;SAY (Food, that is, of course.)
  103. LACT: 4;8;RESP R,4,That's great. Maybe my customers will start coming back now!
  104. LACT: 4;8;DSET 4,R1;EDLG;EXIT
  105.  
  106. LINE: 4;9;The food is coming on quite well.; ;IFRF 2=1;IFOF 2=0
  107. LACT: 4;9;RESP R,4,That's great.;RESP R,4,Don't let me stop you.
  108. LACT: 4;9;DSET 4,N9
  109.  
  110. LINE: 4;10;Would you like to come and try my stew?;Are you sure you won't come and try my stew?;IFRF 7,2=1;IFOF 4,2=0;IFOF 11,1<2
  111. LACT: 4;10;RESP R,4,Sorry, I'm too lazy to move.;RESP R,4,Besides, I can hardly get through that kitchen door.
  112. LACT: 4;10;RESP R,4,You'll have to fetch me out some.;SAY Okay. I'll see what I can do.;DSET 4,+1
  113.  
  114. LINE: 4;11;I've got the stew here, do you want to try it?; ;IFOF 11,1=2;IFOF 4,2=0
  115. LACT: 4;11;EDLG;RESP R,4,Yeah, okay.;VERB 1;OBJ1 11;OBJ2 4;REDO
  116.  
  117. LINE: 4;12;Look, the bulb on this lamp is busted.; ;IFRF 12,4=1;IFOF 3=0
  118. LACT: 4;12;HANDLE;W 25;HANDLE -1;RESP R,4,Oh yes, so it is.;RESP R,4,You can't work with it like that.;RESP R,4,Here's £14 for you to buy another bulb with.
  119. LACT: 4;12;HANDLE;W 25;HANDLE -1;GET 24,N;SETOF 3=1
  120. LACT: 4;12;SAY £14? That's a bit generous.;RESP R,4,Yeah, get one of those energy saving ones. They don't blow so easily.;SAY Sure thing, boss!
  121. LACT: 4;12;DSET 4,N12
  122.  
  123.  
  124. /* Room actions follow below ***
  125. /*
  126. /* ACTION: verbno;condition;...;command;...
  127.  
  128. /*
  129. /* Action 0 - Exit
  130. /* ===============
  131. /*
  132. ACTION: 0;IFOBJ 1;MEXIT;GOTO 5,3;EXIT
  133. ACTION: 0;IFOBJ 2;MEXIT
  134. ACTION: 0;IFOBJ 2;IFRF 2=0;RESP R,4,Hold it!;RESP R,4,You can't go in there.\That's private.;EXIT
  135. ACTION: 0;IFOBJ 2;GOTO 7,1;EXIT
  136. /*
  137. /* Action 1 - Give
  138. /* ===============
  139. /*
  140.  
  141. ACTION: 1;IFOBJ 21;IFOBJ2 4;IFOF 3=1;MOBJ 4;SAY Here, look at this lamp, it is lighting by itself!;RESP R,4,That is really neat!;RESP R,4,It should cut down on my electricity bill.;EXIT
  142. ACTION: 1;IFOBJ 21;IFOBJ2 4;IFOF 2=1;MOBJ 4;SAY Look, I managed to find a replacement bulb.;RESP R,4,Good, that means that you can get on with your work now.;EXIT
  143.  
  144. ACTION: 1;IFOBJ 12;IFOBJ2 4;OBJ1 4;VERB 5;REDO
  145. ACTION: 1;IFOBJ 21;IFOBJ2 4;IFRF 12,4=1;OBJ1 4;VERB 5;REDO
  146.  
  147. ACTION: 1;IFOBJ 11;IFOBJ2 4;IFOF 11,1=2;IFOF 4,2=0;MOBJ 4;SAY Here you go. Chef's special!;HANDLE 4;W 25;HANDLE -1;RESP R,4,Mmm, Cockroach and whisky flavour!
  148. ACTION: 1;IFOBJ 11;IFOBJ2 4;IFOF 11,1=2;IFOF 4,2=0;SAY Glad you like it.;RESP R,4,Here's your wages.;HANDLE;W 25;HANDLE -1;SAY ONE POUND?!;SAY No wonder your last chef resigned!;RESP R,4,Well, if I have no customers, I cannot afford to pay a good wage.
  149. ACTION: 1;IFOBJ 11;IFOBJ2 4;IFOF 11,1=2;IFOF 4,2=0;SAY I suppose it will have to do.;THINK (Well, it's not bad seeing as I didn't actually cook it...);SAY Okay then, see you later.;RESP R,4,Okay. See ya.
  150. ACTION: 1;IFOBJ 11;IFOBJ2 4;IFOF 11,1=2;IFOF 4,2=0;SETOF 11,1=0;OBJ1 11;NAME Empty Glass;ICON 43;SETOF 4,2=1;GET 23,U;EXIT
  151.  
  152. /*
  153. /* Action 2- Pick up
  154. /* =================
  155. /*
  156. /* Action 3 - Use
  157. /* ==============
  158. /*
  159. /*
  160. /* Action 4 - Open
  161. /* ===============
  162. /*
  163.  
  164. /* Action 5 - Talk to
  165. /* ==================
  166. /*
  167. ACTION: 5;IFOBJ 4;IFOF 1=0;MOBJ;SAY Hello.;RESP R,4,Hello.;DSET 4,+2,+3,+9,+10,+11,+12;EXIT
  168. ACTION: 5;IFOBJ 4;IFOF 1=1;MOBJ;SAY Hello again.;RESP R,4,Hello again. What can I do for you now?;DSET 4;EXIT
  169. /*
  170. /* Action 6 - Push
  171. /* ===============
  172. /*
  173. /*
  174. /* Action 7 - Close
  175. /* ================
  176. /*
  177. /* Action 8 - Look at
  178. /* ==================
  179. /*
  180. ACTION: 8;MOBJ
  181. ACTION: 8;IFOBJ 4;IFRF 2=0;SAY He looks rather depressed.;EXIT
  182. ACTION: 8;IFOBJ 4;IFRF 2=1;SAY He's my boss, so I won't say anything nasty.;EXIT
  183.  
  184.  
  185. /* Action 9 - Pull
  186. /* ===============
  187. /*
  188. /* End of room file. Some comments must be here, otherwise  the last command
  189. /* line is missed out!
  190.